NOVA - For the NeXT Workstation/NOVA - For the NeXT Workstation.iso/Apps/ArchiveUtils/nx_arc/arcdos.c

C/C++ Source or Header | 1992-12-20 | 4.9 KB | 204 lines

/*
 * $Log:    arcdos.c,v $
 * Revision 1.1  88/04/11  17:53:31  hyc
 * Initial revision
 *
 * Revision 1.2  87/12/19  04:20:26  hyc
 * Replace reference to f->_file with fileno(f)
 *
 * Revision 1.1  87/12/19  04:19:40  hyc
 * Initial revision
 *
 * Revision 1.4  87/08/13  17:03:16  hyc
 * Run thru the indent program...
 *  Revision 1.3  87/07/21  11:40:35  hyc *** empty
 * log message ***
 *
 * Revision 1.2  87/07/21  07:22:17  hyc added BSD goodies
 *
 */

/*
 * ARC - Archive utility - ARCDOS
 *
 * Version 1.44, created on 07/25/86 at 14:17:38
 *
 * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
 *
 * By:  Thom Henderson
 *
 * Description: This file contains certain DOS level routines that assist in
 * doing fancy things with an archive, primarily reading and setting the date
 * and time last modified.
 *
 * These are, by nature, system dependant functions.  But they are also, by
 * nature, very expendable.
 *
 * Language: Computer Innovations Optimizing C86
 */
#include <stdio.h>
#include "arc.h"
#ifdef MSDOS
#include "fileio2.h"        /* needed for filehand */
#endif
#ifdef BSD
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>
#include "tws.h"
#endif

INT
getstamp(f, date, time)        /* get a file's date/time stamp */
#  ifndef MTS
    FILE           *f;    /* file to get stamp from */
#else
    char           *f;    /* filename "" "" */
#endif
    unsigned INT   *date, *time;    /* storage for the stamp */
{
#ifdef MSDOS
    struct {
        int             ax, bx, cx, dx, si, di, ds, es;
    }               reg;

    reg.ax = 0x5700;    /* get date/time */
    reg.bx = filehand(f);    /* file handle */
    if (sysint21(®, ®) & 1)    /* DOS call */
        printf("Get timestamp fail (%d)\n", reg.ax);

    *date = reg.dx;        /* save date/time */
    *time = reg.cx;
#endif
#ifdef BSD
    struct stat    *buf;
    int             day, hr, min, sec, yr, imon;
    static char     mon[4], *mons[12] = {
                   "Jan", "Feb", "Mar", "Apr", "May", "Jun",
                    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
    };

    buf = (struct stat *) malloc(sizeof(struct stat));
    fstat(fileno(f), buf);

    sscanf(ctime(&(buf->st_mtime)), "%*4s%3s%d%d:%d:%d%d", mon, &day, &hr, &min,
           &sec, &yr);
    for (imon = 0; imon < 12 && strcmp(mon, mons[imon]); imon++);

    *date = (unsigned INT) (((yr - 1980) << 9) + ((imon + 1) << 5) + day);
    *time = (unsigned INT) ((hr << 11) + (min << 5) + sec / 2);
#endif
#ifdef MTS
    fortran         timein(),
#ifdef USEGFINFO
                    gfinfo();
#else
                    fileinfo();
#endif
    int             stclk[2];
    char            name[24];
    struct bigtime {
        int             greg;
        int             year;
        int             mon;
        int             day;
        int             hour;
        int             min;
        int             sec;
        int             usec;
        int             week;
        int             toff;
        int             tzn1;
        int             tzn2;
    }               tvec;
#ifdef USEGFINFO
    static int      gfflag = 0x0009, gfdummy[2] = {
                               0, 0
    };
    int             gfcinfo[18];
#else
    static int      cattype = 2;
#endif

    strcpy(name, f);
    strcat(name, " ");
#ifdef USEGFINFO
    gfcinfo[0] = 18;
    gfinfo(name, name, &gfflag, gfcinfo, gfdummy, gfdummy);
    timein("*IBM MICROSECONDS*", &gfcinfo[16], &tvec);
#else
    fileinfo(name, &cattype, "CILCCT  ", stclk);
    timein("*IBM MICROSECONDS*", stclk, &tvec);
#endif

    *date = (unsigned INT) (((tvec.year - 1980) << 9) + ((tvec.mon) << 5) + tvec.day);
    *time = (unsigned INT) ((tvec.hour << 11) + (tvec.min << 5) + tvec.sec / 2);
#endif
}

INT
setstamp(f, date, time)        /* set a file's date/time stamp */
#  ifdef  BSD
    char           *f;    /* filename to stamp */
#else
    FILE           *f;    /* file to set stamp on */
#endif
    unsigned INT    date, time;    /* desired date, time */
{
#ifdef MSDOS
    struct {
        int             ax, bx, cx, dx, si, di, ds, es;
    }               reg;

    fflush(f);        /* force any pending output */

    reg.ax = 0x5701;    /* set date/time */
    reg.bx = filehand(f);    /* file handle */
    reg.cx = time;        /* desired time */
    reg.dx = date;        /* desired date */
    if (sysint21(®, ®) & 1)    /* DOS call */
        printf("Set timestamp fail (%d)\n", reg.ax);
#endif
#ifdef BSD
    struct tws      tms;
    struct timeval  tvp[2];
    twscopy(&tms, dtwstime());
    tms.tw_sec = (time & 31) * 2;
    tms.tw_min = (time >> 5) & 63;
    tms.tw_hour = (time >> 11);
    tms.tw_mday = date & 31;
    tms.tw_mon = ((date >> 5) & 15) - 1;
    tms.tw_year = (date >> 9) + 80;
    tms.tw_clock = 0L;
    tvp[0].tv_sec = twclock(&tms);
    tvp[1].tv_sec = tvp[0].tv_sec;
    tvp[0].tv_usec = tvp[1].tv_usec = 0;
    utimes(f, tvp);
#endif
}

INT
filehand(stream)        /* find handle on a file */
    struct bufstr  *stream;    /* file to grab onto */
{
#ifdef MSDOS
    return stream->bufhand;    /* return DOS 2.0 file handle */
#endif
}

INT
izadir(filename)        /* Is filename a directory? */
    char           *filename;
{
#ifndef BSD
    return (0);
#else
    struct stat     buf;

    if (stat(filename, &buf) != 0)
        return (0);    /* Ignore if stat fails since */
    else
        return (buf.st_mode & S_IFDIR);    /* bad files trapped later */
#endif
}